my %hash = (
  'John' => 'Burbridge',
  'Anna' => 'Almeida',
  'Izabel' => 'Murat',
  'Victor' => 'Hugo'
);

print_hash(%hash);

sub print_hash {
  my %newhash = @_;

  foreach (keys %newhash) {
    print "Name $_,\t Lastname: $newhash{$_}\n";
  }
}