Select Code to Download

foreach my $records (@merged_array) {
    my @elements = split /,/, $records;

        print $elements[0];