Moving multiple filetype in a single loop

Hi,
I am using the below code to move *.sh files to another directory.

use File::Copy qw(move);

while(<C:/Users/pandeesh/Desktop/*.sh>)
{

move $_,"C:/Users/pandeesh/Desktop/Projects";

}

My requirement is i want to move *.sh,*.txt,*.xlsx,*.doc,*.pdf and *.epub files to the specified directory.

How i can specify the pattern in the while condition for achieving this?

Thanks

Read this

Thanks balajesuri! glob fulfilled my requirement