#!/usr/bin/perl
  
  open FICHERO, "cantidades";
  open SALIDA, ">salida";
  while($linea = <FICHERO>) {
    chop($linea);
    print "Quien te ha dado $linea pelas? Eh?\n";
    chop( $menda = <STDIN> );
    print SALIDA "$menda $linea\n";
 }
 close FICHERO;
 close SALIDA;