Select Code to Download

#!/usr/bin/perl
use strict;
...
        print join( " ", $id, $i++, @$array_ref ), "\n";
    }
}

ID 1 key2_val1 key1_val1
ID 2 key2_val1 key1_val2
ID 3 key2_val2 key1_val1
ID 4 key2_val2 key1_val2