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