my $rev = reverse $n;