my $html = "hello";
routine($html);
sub routine
{
print $_;
print "


";
print @_;
}