Select Code to Download

#!/usr/bin/perl
use strict;
...
    }
    return join "\n", $cube1, $cube2, $cube3, $cube4;
}

#!/usr/bin/perl
use strict;
...
    }
    return "@$cube1\n@$cube2\n@$cube3\n@$cube4";
}

#!/usr/bin/perl
use strict;
...
    }
    return \@rot;
}