Select Code to Download

#!/usr/bin/perl
 use strict;
 use warnings;
...
        ];

 print $compass[0]->[1];

ARRAY(0x8cfc10)