#!/usr/local/bin/perl

sub foo {
  $_[0] = 'b';
}

@_ = 'a';

foo();
print "@_\n";

&foo;
print "@_\n";

__END__
a
b