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{$queue}{Get}});
	print "Queue$queue difference: $s\n",
}