C:/Strawberry/perl/bin\perl.exe -w d:/tmp/pm/tie_handle.pl 
$_
$a[0]
$a[1]
$a[2]
AFTER