in reply to How's your Perl? (II)

1:
$foo=*a;