#!/usr/bin/env perl

use strict;
use warnings;

my $VAR1 = ... your posted data here ...;

my @records = @$VAR1;

for my $index (0 .. $#{$records[0]}) {
    print "$records[0][$index][1] -> $records[0][$index][0]\n";
}