#!/usr/bin/perl
use strict;
use warnings;

my @last= `last`;
my (%time, @details, $host);

map{
   @details=split(/ +/);
   $host=$details[2];
   $time{$host}=join (' ', @details[3,4,5,6]) unless $time{$host} ;
}@last[0..$#last - 2];
map{
        print "$_, last login at $time{$_}\n";
} keys %time;