[Perl ou PHP] Besoin d'un exemple tout bête

#! /usr/bin/perl

use warnings;
use strict;

open TTXT, "Touareg2.txt"
					or die "E/S : $!\n";
open BULK, "Touareg_bulk.bdf"
					or die "E/S : $!\n"; 
open WRES, ">tuareg_resultat"
					or die "E/S : $!\n";

my (@tr_val,@t,@subcase);
my (%h,%g);
my @grid;
my %bulk;
my %coord;
my $xyz_val;
my $tr = 'o';

#######################################
#  TRAITEMENT DU FICHIER TUAREG2.TXT  #
#######################################
#
#enlevement de toutes les lignes inutiles
#on garde seulement les lignes qui contient SUBCASE
#(on met SUBCASE au debut de ligne)
#et le lignes avec les valeurs
#1      G      1.599571E+01   1.185148E-02  -3.111541E+00   1.784951E-06   5.286219E-02  -3.340712E-06
while (<TTXT>) {
 next if /^(\s|\t)*\n$/;
 s/.*(subcase)\s*(\d+).*\n$/;$1$2:/i;
 next if /^(\d|\s+[a-z].*|\s+\()/i;
 s/^\s*//g;
 s/\n$/!/;
 push @t,$_;
} 
############################################
#  TRAITEMENT DU FICHIER Touareg_bulk.bdf  #
############################################
#on traite seulement les lignes qui commence avec GRID
#on supprime GRID et les espaces au début
while (<BULK>){
	next unless /^GRID/;
	s/^GRID\s*//;
	s/\s+$//;
	push @grid,$_;
}

#############################
#    SAISIE DES COLONNES    #
#############################
print "Entrez la colonne [T1,T2,T3,R1,R2,R3] : ";
chomp(my $col = <STDIN>);
(my $col_index = $col) =~ s/^.(.)/$1/;
if ($col =~ /^t/i) {
	$col_index += 1;
}
else {
	$col_index += 4;
}

#####################################################
#  TRAITEMENT DES LIGNES Touareg2.txt SAUVEGARDÉES  #
#####################################################
my $t = join "",@t;
$t =~ s/\s+/|/g;
my @tt = split /;/,$t;

foreach (@tt){
	my ($cle,$val) = split /:/,$_;
	if (defined($val)){
		$val =~ s/\|/ /g;
		my @res_val = split /!/, $val;
		$h{$cle} = [ @res_val ];
	}
}
#############################
#    SAISIE DES SUBCASES    #
#############################
@subcase = keys %h;
print "Vous avez ", $#subcase+1," subcase. Entrez le subcas : ";
chomp (my $cas = <STDIN>);
$cas = 'SUBCASE'.$cas;

foreach (keys %h){
	foreach my $el( @{$h{$_}} ){
		push @{$g{$_}},[ split /\s/,$el];
	}
}
##################################################
#   AFFICHAGE DES POINTS EXISTANTS PAR SUBCASE   #
##################################################
foreach (sort keys %g) {
	print "$_ : ";
	foreach my $l( @{$g{$_}} ){
			print "$l->[0],";
	}
	print "\n";
}
###########################################
#           SAISIE DES POINTS             #
###########################################
while ($tr ne 'n'){
	print "Entrez une valeur du point [ n ] pour quitter : ";
	chomp($tr = <STDIN>);
	push @tr_val,$tr;
}
###########################################
#     TRAITEMENT DES DONNEES X,Y ET Z     #
###########################################
#à tenir compte qu'il y a des valeurs qui commence avec -
foreach (@grid){
	my ($c,$v) = split /\s+/,$_,2;
  $bulk{$c} = $v;
}
foreach(sort keys %bulk){
	my($i,$j,$k);
	if (substr($bulk{$_},8,1) eq '-' # si -
			or
			substr($bulk{$_},8,1) eq '+'){# ou +
				$i = substr($bulk{$_},0,7);
				$j = substr($bulk{$_},8,9);
				$k = substr($bulk{$_},16);
				push @{$coord{$_}},($i,$j,$k);
	}
	else {
				$i = substr($bulk{$_},0,8);
				$j = substr($bulk{$_},8,8);
				$k = substr($bulk{$_},16);
				push @{$coord{$_}},($i,$j,$k);
	}
}
print "Choissisez X,Y ou Z : ";
chomp (my $abs = <STDIN>);
SWITCH:
	{
		$abs =~ /x/i && do{$xyz_val = 0;last SWITCH};
		$abs =~ /y/i && do{$xyz_val = 1;last SWITCH};
		$abs =~ /z/i && do{$xyz_val = 2;last SWITCH};
	}
##############################################
#  ECRITURE DU RESULTAT DANS LE HANDLE WRES  # 
#          (voir au début du script)         #
##############################################
print WRES "\U$abs $col\n";
foreach my $tel( @{$g{$cas}} ) {
 foreach my $xyz ( keys %coord ) {
	foreach (@tr_val){
		if ($tel->[0] eq $_ and $xyz eq $_){
			print WRES "$coord{$_}[$xyz_val] $tel->[$col_index]\n";
		}
	}
 }
}