my @list = glob("$home/*.$type");
foreach my $file (@list) 
{
   my $result = `mv $file $home/$basedir/$key`;
}
$type = uc($type);
@list = glob("$home/*.$type");
foreach $file (@list)
{
   $result = `mv $file $home/$basedir/$key`;
}