for (keys %conductordata){ my $ref = $conductordata{$_}; print OUT $ref->[0..1]; }