opendir(DIRHANDLE, $path) or die "Directory not available";

while ( defined ($filename = readdir(DIRHANDLE)))
{
       @list=(@list,$filename);
}
@list=sort (@list);
@machinelist = grep {/.html/} @list;

opendir(DIRHANDLE, $path) or die "Directory not available";
my @machinelist = grep{ /\.html/ } readdir(DIRHANDLE);
closedir DIRHANDLE;

foreach $machine (@machinelist)
{
    $machine =~ s///;
    @allmachines=(@allmachines,$machine);
}