my @first_value = ();
for my $compass_row (@another_compass)
        {
        push (@first_value, shift);
        }