#!/usr/bin/perl 
 
$NEWFILE="file.txt"; 
open (NEWFILE); 
@fileinput = <NEWFILE>; 
 
foreach my $i (0..8) { 
    $cube=($fileinput[$i] ** (1/3)); 
    print "$cube\n"; 
}

1 
8 
27 
64 
-64 
-27 
-8 
-1 
0

1 
2 
3 
4 
-nan 
-nan 
-nan 
-nan 
0

use strict; 
use warnings; 
while ( my $cube = <DATA>) { 
    my $cube_root= cube_root( $cube ); 
    print "$cube_root\n"; 
}  
 
sub cube_root { 
    ( my $cube ) = @_; 
    die "No argument defined for cube root\n" if !defined $cube; 
    return 0 if $cube == 0; 
    my $cube_root = ( abs($cube) )**( 1 / 3 ); 
    my $sign      = $cube / abs($cube); 
    return $sign * $cube_root; 
} 
__END__ 
1 
8 
27 
64 
-64 
-27 
-8 
-1 
0

#!/usr/bin/perl                                                
 
$NEWFILE="file.txt"; 
open (NEWFILE); 
@fileinput = <NEWFILE>; 
 
foreach my $i (0..9) { 
 
    if ($fileinput[$i] == 0){ 
        print "0\n"; 
    } 
else 
{ 
    $sign = ($fileinput[$i] / abs($fileinput[$i])); 
    $cube_no_sign= (abs($fileinput[$i]) **(1/3)); 
    $cube=($cube_no_sign * $sign); 
    print $cube; 
    print "\n"; 
} 
}