my $html = "hello";

routine( $html );

sub routine{
    my( $arg1 ) = @_;
    print $arg1;
}