my $word = "3210";
print reverse($word) . "\n";