Deberías de usar funciones, algo como esto.
#!/usr/bin/perl
print "Teclea el numero de la accion que desees realizar:\n"; print "3 - Multiplicar\n"; $sAccion = <STDIN>;
print &sAcciones($sAccion)."\n";
# Functión para pedir números.
sub sPedirNumeros{
$sCount = shift; # @Parametro 1, contador de números. print "Ingrese número " . $sCount . ": "; $sNumero = <STDIN>;
}
# Functión para las acciones de la calculadora.
sub sAcciones{
$sAccion = shift; # @Parametro 2, acción a realizar. $sNum = 0;
if( $sAccion == "0" ){
}else{
print "Cuantos números?\n"; $sCantNum = <STDIN>;
if( $sAccion == "1" ){
for($i=0; $i<$sCantNum; $i++){
$sNum = $sNum + &sPedirNumeros($i + 1);
}
}elsif( $sAccion == "2" ){
for($i=0; $i<$sCantNum; $i++){
$sNum = $sNum - &sPedirNumeros($i + 1);
}
}elsif( $sAccion == "3" ){
for($i=0; $i<$sCantNum; $i++){
$sNum = $sNum * &sPedirNumeros($i + 1);
}
}elsif( $sAccion == "4" ){
for($i=0; $i<$sCantNum; $i++){
$sNum = $sNum / &sPedirNumeros($i + 1);
}
}
}
}
PD: Aún me falta, pero te servirá de guía.