my $file;
while(  $file = $f->next()  ) {
	print "@{$_}\n";
}