#!/usr/bin/perl

sub saluda
  {
    print "”Hola $_[0]!\n";
  }

saluda("Juan");
saluda("Marķa");