#!/usr/bin/perl -w

use strict;

sub foo($) {
        print "$_[0]\n";
}

my $foo = 'foo';
my @foo = ($foo);

foo($foo);
foo(@foo);
foo($foo[0]);