@list = split /\|/, FuncThatGivesData();
    print "Found ", scalar(@list), " elements\n";
    $i = 0;
    foreach $e (@list) {
        print "Element $i: $list[$i]\n";
        $i++;
    }