Programa1.pl
#!/usr/bin/perl
print "content-type: text/html \n\n"; #HTTP HEADER
@moedas = qw(25Centavos 10Centavos 5centavos centavo);
@moedaspartidas = @moedas[0,2];
print "@moedaspartidas\n";
print "<br />";

Progama2.pl
#!/usr/bin/perl
print "content-type: text/html \n\n"; #HTTP HEADER
@numeros = (1..200);
@numerospartidos = @numeros[10..20,50..60,190..200];
print "@numerospartidos";

Programa3.pl
#!/usr/bin/perl
print "Content-type: text/html \n\n"; #HTTP HEADER
@moedas = ("25Centavos", 25, "10Centavos", 10, "5Centavos", 5);
@idade = ("João", 45, "Pedro", 22, "Vitória", 38);
print %moedas;
print "<br />";
print %idades;

Considerando os scripts Programa1.pl, Programa2.pl e Programa3.pl apresentados acima, julgue o item subsequente.

Todas as funções e definições utilizadas no Programa1.pl estão corretas em relação a sintaxe e semântica.