use Bio::Trace::ABIF;


...

my $abif = Bio::Trace::ABIF->new();

...

foreach my $abifiles (@{$maindata->[1]}){
	$abif->open_abif($abifiles);
	
	print  "$abifiles\n";
	my $sequence = $abif->sequence();

	print  "$sequence\n\n";
        ... and so on 

}