#!/usr/local/bin/perl

@searchletters = ("a", "e", "i", "o", "u");
$inputline = <STDIN>;
foreach $letter (@searchletters) {
        printf("searching for $letter...\n");
        $location = 0;
        while (1) {
                $location = index ($inputline, $letter, $location);
                last if ($location == -1);
                print("\tfound at location $location\n");
                $location += 1;
        }
}
