for(@files) 
{
	$match = (@_) = $_ =~ /(.{8}\-.{3}\-i32)/g;
	@stats = pop(@_);
	print "@stats\n";
}