sub reverse_word() {
    my $word = shift;
    my $reversedword = scalar reverse $word;
    return $reversedword;
}