foreach my $key (sort keys %sessions) {
    push @loop, $sessions{$key};
}