#!/usr/bin/perl -w

use strict;

my %rotated = (
        0 => 0,
        1 => 1,
        2 => 2,
        3 => undef,
        4 => undef,
        5 => 5,
        6 => 9,
        7 => undef,
        8 => 8,
        9 => 6
    );

sub is_rotateable
{
    my ($n) = @_;

    my @num = split '', $n;
    my @mun = reverse @num;

    foreach (0..$#num) {
        my $d = $num[$_];
        return 0 if $rotated{$d} != $mun[$_];
    }

    return 1;
}

for (@ARGV) {
    print "$_ is rotateable\n" if &is_rotateable($_);
}