use Data::Alias;

sub sample {
    alias $html = $_[0];
    ...
}