Заполнение массива именами файлов

[PerlBeginner]

Привет, всем!

Подскажите, пожалуйста, как заполнить массив ARRAY именами файлов с расширением .o?
Например,
есть директория /home/user/lib, в которой содержаться файлы 1.о, 2.о, 3.о.
Содержание массива ARRAY должно быть "1 2 3"
Спасибо!

[NeoNox]

use strict;

opendir (DH, \'/home/user/lib\') or die "Can\'t do this: $!";

my @array = grep { s/^(\\d*?)\\..*/$1/ } readdir(DH);
print $_."\\n" foreach(@array);