#!/usr/bin/perl

%dim = ( "José", "Pepe",
         "Patricio", "Pato",
         "Francisco", "Pancho" );
while(<>)
  {
    chop;
    $_ = $dim{$_} if $dim{$_};
    print "¡Hola $_!\n";
  }