Ejercicio con variables

Estudia el siguiente código en Perl y encuentra qué contendrá $resultado al terminar.

 
#!/usr/bin/perl -w 
# Ejercicio escrito por Bruno Contreras en Julio de 2005

use strict; 

my ($dato1,@datos2,%datos3,$resultado);

$datos2[0] = 'A';
$datos2[1] = 'G';
$datos2[2] = 'T';
$datos2[3] = 'C';

$dato1 = scalar(@datos2);

$datos3{ $datos2[0] } = 'ATP';
$datos3{ $datos2[1] } = 'GTP';
$datos3{ $datos2[2] } = 'TTP'; 
$datos3{ $datos2[3] } = 'CTP';

$resultado = \%datos3;

$resultado = $resultado->{ $datos2[$dato1-2] };

print("resultado = $resultado\n");