Select Code to Download

for my $queue (sort {$a <=> $b} keys %data) {
    next unless keys %{ $data{$queue} } == 2;
    my ($d, $h, $m, $s) = Delta_DHMS(@{$data{$queue}{Put}}, @{$data{$q
+ueue}{Get}});
    print "Queue$queue difference: $s\n",
}