open my $FH, "<", "datafile"; 
 
my @lines = <$FH>; 
my @today = @lines[0..5]; 
my @yesterday = @lines[-6..-1]; 
 
my $data; 
 
close $FH; 
my $count = 0; 
for(my $i = $#today; $i >= 0; $i--) { 
  if($today[$i] =~ /(\d+:\d+) (\d+)/) { 
    $data .= "['" . $1 . "'," . $2 . "," . (split(' ',$yesterday[$i]))[1] . "],"; 
  } 
} 
chop $data; ## Remove extra comma ',' 
open $FH,">","newdatafile"; 
print $FH newdatafile;

#!/usr/bin/perl 
 
use strict; 
use warnings; 
 
my %HoA;  # use a var name that describes the data that is being held 
 
open my $input_fh, '<', 'datafile' or die "failed to open 'datafile' $!"; 
while (my $line = <$input_fh>) { 
    chomp $line; 
    my ($key, $value) = split /\s+/, $line; 
    push @{ $HoA{$key} }, $value; 
} 
close $input_fh; 
 
open my $output_fh, '>', 'newdatafile' or die "failed to open 'newdatafile' $!"; 
foreach my $key (sort keys %HoA) { 
    printf "['%s',%s]\n", $key, join(',', @{$HoA{$key}}); 
} 
close $output_fh;

#!/usr/bin/perl 
 
use strict; 
use warnings; 
 
chomp(my @lines = (<DATA>)[0..4,-4..-1]); 
 
my %HoA; 
foreach my $line (@lines) { 
    my ($key, $value) = split /\s+/, $line; 
    push @{ $HoA{$key} }, $value; 
} 
 
foreach my $key (sort keys %HoA) { 
    printf "['%s',%s]\n", $key, join(',', @{$HoA{$key}}); 
} 
 
 
__DATA__ 
23:00 37 
22:45 26 
22:30 14 
22:15 15 
22:00 43 
... more of the same ... 
... more of the same ... 
... more of the same ... 
23:00 33 
22:45 22 
22:30 11 
22:15 12 
22:00 21