@last=lastlines(\@a,\@b,\@c);
print "@last\n";
sub lastlines
{
	my @retlist=();
     foreach my $aref(@_)
	{
		 push @retlist,pop @$aref;
	}
	return @retlist;
}