Select Code to Download

#! /usr/bin/perl
use strict;
use warnings;
...
          'two',
          '2.003'
        ];

my %hash;
while ( my ( $key, $val ) = splice( @$in, 0, 2 ) ) {
  push @{ $hash{$key} }, $val;
}