sub delete_first_char {
    $_[0] =~ s/^.//
}

##</code><code>##

sub whatever {
    ($var1,$var2,$etc) = @_;
...
}