use List::AllUtils qw/ sum first /;

use 5.20.0;

my @nums = <>;

my $index = 0;

my %seen; 
my $current = 0;

while() {
    $current += $nums[ $index++ % @nums ];
    say $current and last if $seen{$current};
    $seen{$current}++;
}