Perl redo

LINK: until ( $e eq "sam" )
{
&sa;
print Hi."\n";
redo LINK;
}

sub sa
{
chomp($e=<STDIN>);
}