Fix few things in ls command perl