test("1回目",0);
test("2回目",0);
test("3回目",0);

sub test {
my $str =shift;
my $flag=shift;
my $last="";
print "初期化直後last:$last\n";
my $last = "hoge" if($flag);
print "ifで代入後last:$last\n\n";
$last = $str;
return 1;
}

このプログラム、どんな挙動をすると思いますか？
1時間ほどハマりました。バグでしょうか。