my $fh = IO::File->new( $filename, '>' ) or croak( q(Can't Open ) . $filename );
if ( scalar( @array ) > 0 ) {
	while ( my ( $id, $name, $prefix ) = $sth->fetchrow_array() ) {
		for ( my $i = 0; $i < 10; $i++ ) {
			print $fh map { $_ . "\n" } ( @{$buf} );
		}
	}
} else {
	$foo = Hoge::bar();
}

Perlの漏れ
print以外はﾏﾒにというか必要以上に()で囲うくせが(;´Д`)でもｻﾌﾞﾙｰﾁﾝに&はつけない