#!/usr/bin/perl

use strict;
use warnings;


use Scalar::Util qw(looks_like_number);


my @list = qw(1 "1" "1o");

foreach my $foo (@list) {

        if( looks_like_number( $foo ) ) {

                print "number\n";
        }else{
                print "string\n";
        }

}