my $filename = '/file.fasta';
 
if(!open(MY_HANDLE, $filename)){
	die "Couldnt open file";
}


my @chars = <MY_HANDLE>;
print "@chars[0]\n";