#!/usr/bin/perl -n
chomp;
s/^ +//;
@f = split / +/, $_;
if (!$row) {
	$shift = $f[0] ne "PID";
} else {
	shift @f if $shift;
	print "$f[0]\n";
}
++$row;